home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / kboot20.d64 / proc.use'extend < prev    next >
Text File  |  2009-01-23  |  1KB  |  37 lines
  1. 0010 //
  2. 0020 ╨╥╧├ DRAW'BOX(ROW,COL,WIDTH,HIGHTH) ├╠╧╙┼─
  3. 0030   ─╔═ OFFSET#(4), LONG#(4)
  4. 0040   OFFSET#(1):=1; OFFSET#(2):=40
  5. 0050   OFFSET#(3):=-1; OFFSET#(4):=-40
  6. 0060   LONG#(1):=WIDTH; LONG#(2):=HIGHTH-1
  7. 0070   LONG#(3):=WIDTH-1; LONG#(4):=HIGHTH-2
  8. 0080   ADDR:=1024+(ROW-1)*40+(COL-1)-1
  9. 0090   COLOR:=3
  10. 0100   ╞╧╥ SIDE:=1 ╘╧ 4 ─╧
  11. 0110     ╞╧╥ L:=1 ╘╧ LONG#(SIDE) ─╧
  12. 0120       ADDR:+OFFSET#(SIDE)
  13. 0130       ╨╧╦┼ ADDR,32+64*COLOR
  14. 0140       COLOR:-1
  15. 0150       ╔╞ COLOR<1 ╘╚┼╬ COLOR:=3
  16. 0160     ┼╬─╞╧╥ L
  17. 0170   ┼╬─╞╧╥ SIDE
  18. 0180 ┼╬─╨╥╧├ DRAW'BOX
  19. 0190 //
  20. 0200 ╨╥╧├ ROTATE'EXTEND ├╠╧╙┼─
  21. 0210   T:=╨┼┼╦(53282)
  22. 0220   ╞╧╥ X#:=0 ╘╧ 1 ─╧ ╨╧╦┼ 53282+X#,╨┼┼╦(53282+X#+1)
  23. 0230   ╨╧╦┼ 53284,T
  24. 0240 ┼╬─╨╥╧├ ROTATE'EXTEND
  25. 0250 //
  26. 0260 ╨╥╧├ EXTENDED'COLOR(STATE) ├╠╧╙┼─
  27. 0270   OLD:=╨┼┼╦(53265) ═╧─ 64
  28. 0280   ╔╞ STATE ╘╚┼╬ OLD:+64
  29. 0290   ╨╧╦┼ 53265,OLD
  30. 0300 ┼╬─╨╥╧├ EXTENDED'COLOR
  31. 0310 //
  32. 0320 ╨╥╧├ SET'EXTENDED'COLORS(N1,N2,N3) ├╠╧╙┼─
  33. 0330   ╨╧╦┼ 53282,N1
  34. 0340   ╨╧╦┼ 53283,N2
  35. 0350   ╨╧╦┼ 53284,N3
  36. 0360 ┼╬─╨╥╧├ SET'EXTENDED'COLORS
  37.